Premier2013 <- read.csv("~/Desktop/Premier2013.csv", sep=";")
Premier2013

# Protokoll zum 5.6.2013
# Melanie Westenberg 
# Kreuztabelle Premier League 2013

## Was habe ich mir für diese Woche vorgenommen?
# a) Dateneingabe (Kreuztabelle Premier League 2013) einer Excel-Tabelle in R 
# b) Ausgabe der Daten in Form einer Liste, wo die Punkte der Teams zusammen addiert werden -> eine Tabellenfunktion mit Position und Punkten soll ausgegeben werden

## Was habe ich bei der Umsetzung versucht?
# zu a) Die Dateneingabe via (Premier2013 <- read.csv("/Desktop/Premier2013.csv", sep=";")

# zu b) Zunächst muss eine Regel definiert werden, wann ein Spiel als gewonnen gilt sowie wann es als verloren oder Niederlage gilt. Verwendung der if() Funktion: 
# Meine Werte sehen in der Kreuztabelle wie folgt aus: Arsenal gegen Aston Villa 2_1 -> d.h Arsenal hat diese Partie gewonnen und bekommt 3 Punkte für diesen Sieg. Meine Idee für die Verwendung der if()- Funktion.
# x soll als erste Zahl (hier für die 2 von 2_1) definiert werden und y als  zweite Zahl (hier für die 1 von 2_1)
# x<- Vektor1
# y<- Vektor2
# if (x>y){print (x<-3;y<-0); } else if (x==y) {print(x<-1;y<-1);} else (x<y) {print (x<-0; y<-3);}

## Was hat funktioniert?
# a) die Darstellung der Kreuztabelle hat funktioniert
# b) die Darstellung der Liste/Tabelle mit der if()-Funktion hat leider nicht funktioniert. Es hat im Allgemeinen keine genaue Auswertung der Kreuztabelle funktioniert. Ich habe mir daher ein paar Gedanken gemacht, was ich nach der Darstellung in Tabellenform mit diesem Datensatz machen würde.
# Man könnte beispielsweise ein Histogramm erstellen, um so die Ergebnisse (also die Mannschaft mit den meisten Siegen und mit den meisten Toren etc.) in einem Blockdiagramm graphisch darzustellen.

## Was nehme ich mir für nächste Woche vor?
# a) Die Kreuztabelle u "verschönern" -> Formatierung
# b) Weiter an graphischer Darstellung arbeiten

## Was habe ich diese Woche besonderes kennengelernt?
# Die if()- Funktion, auch wenn ich sie nicht korrekt angewendet habe
